home *** CD-ROM | disk | FTP | other *** search
/ Comix Games / Comix Games.iso / waldo / waldo.exe / FINAL08.DXR / 00263.ls < prev    next >
Encoding:
Text File  |  1995-10-08  |  494 b   |  23 lines
  1. on exitFrame
  2.   set oldVol1 to the volume of sound 1
  3.   set oldVol2 to the volume of sound 2
  4.   repeat with x = 255 down to 0
  5.     if x < oldVol1 then
  6.       set the volume of sound 1 to x
  7.     end if
  8.     if x < oldVol2 then
  9.       set the volume of sound 2 to x
  10.     end if
  11.     updateStage()
  12.     delayFor(5)
  13.     set x to x - 5
  14.   end repeat
  15.   puppetSound(0)
  16.   sound stop 1
  17.   sound stop 2
  18.   updateStage()
  19.   set the volume of sound 1 to oldVol1
  20.   set the volume of sound 2 to oldVol2
  21.   updateStage()
  22. end
  23.